home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / mac / netCD41 / PC16.DIR / 00143_Script_143 < prev    next >
Text File  |  1997-12-08  |  8KB  |  214 lines
  1. on printForm
  2.   global gSurname, gForeNames, gTitle, gDoB, gAddress1, gAddress2, gTitle
  3.   global gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum
  4.   global gBSoft, gMoney97, gMoney98
  5.   
  6.   global gsort1,gacno1,gacname1,gtype1,gcheck1
  7.   global gosort1,goacno1,goacname1,gotype1,gocheck1
  8.   global gosort2,goacno2,goacname2,gotype2,gocheck2
  9.   global gosort3,goacno3,goacname3,gotype3,gocheck3
  10.   global gosort4,goacno4,goacname4,gotype4,gocheck4
  11.   
  12.   
  13.   
  14.   set doc = new(xtra "PrintOMatic_Lite")
  15.   if not objectP(doc) then exit
  16.   setDocumentName doc, "Application Form"
  17.   setMargins doc, rect(72,90,72,90)
  18.   setTextSize doc, 16
  19.   setTextStyle doc, "bold"
  20.   append doc, "BARCLAYS PC BANKING PERSONAL APPLICATION FORM"
  21.   
  22.   setTextSize doc, 9
  23.   setTextStyle doc, "italic"
  24.   append doc, " " & RETURN & RETURN
  25.   append doc, "This application form is for applicants wishing to access only personal accounts using the Barclays PC Banking service. Please read the notes prior to completing and returning your application. Once you have filled in all the details, please print the application form and sign it. Then return it to: Barclays PC Banking, FREEPOST, Altrincham, Cheshire WA14 1AR" & RETURN
  26.   
  27.   setTextSize doc, 12
  28.   setTextStyle doc, "bold"
  29.   append doc, RETURN & "SECTION 1: PERSONAL DETAILS OF APPLICANT" & RETURN
  30.   setTextSize doc, 9
  31.   setTextStyle doc, "normal"
  32.   append doc, "(please see notes 1a and 1b)" & RETURN & RETURN
  33.   
  34.   setTextSize doc, 12
  35.   append doc, "Title:" && gTitle & RETURN
  36.   append doc, "Surname:" && gSurname & RETURN
  37.   append doc, "Forenames:" && gForeNames & RETURN
  38.   append doc, "Date of Birth:" && gDoB & RETURN
  39.   append doc, "Address:" && gAddress1 & RETURN
  40.   append doc, "               " && gAddress2 & RETURN
  41.   append doc, "               " && gAddress3 & RETURN
  42.   append doc, "               " && gAddress4 & RETURN
  43.   append doc, "Postcode:" && gPostCode & RETURN
  44.   append doc, "Home Phone No:" && gHomeNum & RETURN
  45.   append doc, "Daytime Phone No:" && gDayNum & RETURN
  46.   
  47.   setTextSize doc, 12
  48.   setTextStyle doc, "bold"
  49.   append doc, RETURN & "SECTION 2: SOFTWARE REQUIREMENTS" & RETURN
  50.   setTextSize doc, 9
  51.   setTextStyle doc, "normal"
  52.   append doc, "(please see note 2a)" & RETURN & RETURN
  53.   append doc, "Please indicate which access method(s) you wish to use:" & RETURN & RETURN
  54.   
  55.   setTextSize doc, 12  
  56.   append doc, "Barclays PC Banking software: [ "
  57.   if gBSoft then append doc, "x ]" & RETURN
  58.   else  append doc, "  ]" & RETURN
  59.   append doc, "Microsoft Money 97: [ "
  60.   if gMoney97 then append doc, "x ]"
  61.   else  append doc, "  ]"
  62.   setTextSize doc, 9
  63.   append doc, "  (please see note 2b)" & RETURN
  64.   setTextSize doc,12
  65.   append doc, "Microsoft Money 98: [ "
  66.   if gMoney98 then append doc, "x ]"
  67.   else  append doc, "  ]"
  68.   setTextSize doc, 9
  69.   append doc, "  (please see note 2b)" & RETURN
  70.   setTextSize doc,12
  71.   
  72.   setTextSize doc, 12
  73.   setTextStyle doc, "bold"
  74.   append doc, RETURN & "SECTION 3: ACCOUNT INFORMATION" & RETURN
  75.   setTextSize doc, 9
  76.   setTextStyle doc, "normal"
  77.   append doc, "(please see note 3)" & RETURN & RETURN
  78.   append doc, "Joint accounts (please see note 4)" & RETURN & RETURN
  79.   
  80.   setTextSize doc, 10
  81.   append doc, "CHARGING ACCOUNT" & RETURN
  82.   setTextSize doc, 9
  83.   append doc, "Please indicate below the account from which you would like the charges for Barclays PC Banking to be debited." & RETURN & RETURN
  84.   
  85.   append doc, "SORT CODE:" && gsort1 & RETURN
  86.   append doc, "ACCOUNT NUMBER:" && gacno1 & RETURN
  87.   append doc, "ACCOUNT NAME:" && gacname1 & RETURN
  88.   append doc, "ACCOUNT TYPE:" && gtype1 & RETURN
  89.   if gcheck1 then append doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN
  90.   
  91.   setTextSize doc, 10
  92.   append doc, RETURN & "OTHER ACCOUNTS" & RETURN
  93.   setTextSize doc, 9
  94.   append doc, "Please indicate below all other accounts to which you require direct access and on which you will be able to raise entries on your PC" & RETURN
  95.   
  96.   if gosort1 <> "0" then
  97.     append doc, RETURN & "SORT CODE:" && gosort1 & RETURN
  98.     append doc, "ACCOUNT NUMBER:" && goacno1 & RETURN
  99.     append doc, "ACCOUNT NAME:" && goacname1 & RETURN
  100.     append doc, "ACCOUNT TYPE:" && gotype1 & RETURN
  101.     if gocheck1 then append doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN
  102.   end if
  103.   
  104.   if gosort2 <> "0" then
  105.     append doc, RETURN & "SORT CODE:" && gosort2 & RETURN
  106.     append doc, "ACCOUNT NUMBER:" && goacno2 & RETURN
  107.     append doc, "ACCOUNT NAME:" && goacname2 & RETURN
  108.     append doc, "ACCOUNT TYPE:" && gotype2 & RETURN
  109.     if gocheck2 then append doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN
  110.   end if
  111.   
  112.   if gosort3 <> "0" then
  113.     append doc, RETURN & "SORT CODE:" && gosort3 & RETURN
  114.     append doc, "ACCOUNT NUMBER:" && goacno3 & RETURN
  115.     append doc, "ACCOUNT NAME:" && goacname3 & RETURN
  116.     append doc, "ACCOUNT TYPE:" && gotype3 & RETURN
  117.     if gocheck3 then append doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN
  118.   end if
  119.   
  120.   if gosort4 <> "0" then
  121.     append doc, RETURN & "SORT CODE:" && gosort4 & RETURN
  122.     append doc, "ACCOUNT NUMBER:" && goacno4 & RETURN
  123.     append doc, "ACCOUNT NAME:" && goacname4 & RETURN
  124.     append doc, "ACCOUNT TYPE:" && gotype4 & RETURN
  125.     if gocheck4 then append doc, "JOINT ACCOUNT WITH ONLY ONE SIGNATURE REQUIRED:  X" & RETURN
  126.   end if
  127.   
  128.   setTextStyle doc, "normal"
  129.   setTextSize doc, 10
  130.   append doc, RETURN & "Please tick here if you would like a Barclays Instant Savings Account to be opened   [       ]" & RETURN
  131.   setTextSize doc, 9
  132.   append doc, "(please see note 5)" & RETURN & RETURN
  133.   
  134.   setTextSize doc, 12
  135.   setTextStyle doc, "bold"
  136.   append doc, "SECTION 4: AGREEMENT & AUTHORISATION" & RETURN & RETURN
  137.   
  138.   setTextSize doc, 8
  139.   setTextStyle doc, "italic"
  140.   append doc, member "agree text"
  141.   
  142.   setTextStyle doc, "normal"
  143.   setTextSize doc, 12
  144.   append doc, RETURN & RETURN & "Signature 1" & RETURN & RETURN
  145.   append doc, "Date" & RETURN & RETURN
  146.   append doc, "Signature 2" & RETURN
  147.   setTextSize doc, 9
  148.   append doc, "(please see note 4a)" & RETURN & RETURN
  149.   setTextSize doc, 12
  150.   append doc, "Date" & RETURN & RETURN
  151.   
  152.   setTextSize doc, 12
  153.   setTextStyle doc, "bold, italic"
  154.   append doc, RETURN & "FOR OFFICE USE" & RETURN & RETURN
  155.   
  156.   setTextSize doc, 10
  157.   setTextStyle doc, "normal"
  158.   append doc, "[   ] C    [   ] L    [   ] N    [   ] AD    [   ] JT    [   ] OS    [   ] CH" & RETURN & RETURN
  159.   append doc, "URN                                             CID _ _ _ _ _ _ _ _ _ _" & RETURN
  160.   append doc, "DAT" & RETURN
  161.   append doc, "VER                                               DI _ _ _ _ _ _" & RETURN & RETURN
  162.   
  163.   setTextSize doc, 9
  164.   setTextStyle doc, "italic"
  165.   append doc, "Branch Stamp:  "
  166.   setTextStyle doc, "normal"
  167.   append doc, "Please tick :  [   ] ACC    [   ] DCL" & RETURN & RETURN & RETURN & RETURN & RETURN
  168.   append doc, "Contact name:" & RETURN & RETURN
  169.   append doc, "Ext:" & RETURN & RETURN
  170.   
  171.   setTextStyle doc, "italic, bold"
  172.   append doc,  RETURN & "Regulated by IMRO and the Personal Investment Authority. Barclays Bank PLC represents only the Barclays Marketing Group for life assurance, pensions and unit trust business. Registered in England. Reg No: 1026167. Reg Office: 54 Lombard Street, London, EC3P 3AH." & RETURN
  173.   
  174.   setTextSize doc, 12
  175.   setTextStyle doc, "bold"
  176.   append doc, RETURN & RETURN & "ACCOMPANYING NOTES" & RETURN & RETURN
  177.   
  178.   setTextSize doc, 8
  179.   setTextStyle doc, "normal"
  180.   append doc, member "accomp notes text"
  181.   
  182.   setTextSize doc, 12
  183.   setTextStyle doc, "bold"
  184.   append doc, RETURN & RETURN & "TERMS AND CONDITIONS" & RETURN & RETURN
  185.   
  186.   setTextSize doc, 8
  187.   setTextStyle doc, "normal"
  188.   append doc, member "full terms text"
  189.   
  190.   if doJobSetup(doc) then
  191.     print doc
  192.     set doc = 0
  193.     closeXLib
  194.     go to frame "menu"
  195.     cursor-1
  196.     
  197.   else
  198.     set doc = 0
  199.     cursor-1
  200.   end if
  201.   
  202.   
  203.   
  204. end
  205.  
  206.  
  207. on setTempGlobals
  208.   global gSurname, gForeNames, gDoB, gAddress1, gAddress2
  209.   global gAddress3, gAddress4, gPostCode, gHomeNum, gDayNum
  210.   global gBSoft, gMoney97, gMoney98
  211. end
  212.  
  213.  
  214.